home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Integer.p < prev    next >
Text File  |  2004-01-31  |  7KB  |  206 lines
  1. pTempVar <- <primitive 110 44 >
  2. <primitive 112 pTempVar 1  " timesRepeat: " \
  3.   #( #[ 16r50 16r72 16r22 16r20 16rC7 16rF7 16r0B 16r21 16rA5 16rF2 16r22 \
  4.         16r51 16rC0 16rF1 16r72 16rF2 16rF9 16r10 16rF2 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " intNegRem: " \
  8.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r12 16r20 16r20 16r50 16rC7 \
  9.         16rF7 16r03 16r5A 16rF8 16r02 16rF2 16r51 16rC2 16r72 16r22 \
  10.         16r21 16rCD 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3] \
  11.     #(  )) >
  12.  
  13. <primitive 112 pTempVar 3  " rem: " \
  14.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  15.         16r1D 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 4  " asBareSignedOctal " \
  19.   #( #[ 16r20 16r58 16r5B 16r5C 16rFA 16r04 16r1A 16rF3] \
  20.     #(  )) >
  21.  
  22. <primitive 112 pTempVar 5  " asBareSignedBinary " \
  23.   #( #[ 16r20 16r52 16r5B 16r5C 16rFA 16r04 16r1A 16rF3] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 6  " asBareSignedHex " \
  27.   #( #[ 16r20 16r05 16r10 16r5B 16r5C 16rFA 16r04 16r1A 16rF3] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 7  " asBareOctal " \
  31.   #( #[ 16r20 16r58 16r5C 16r5C 16rFA 16r04 16r1A 16rF3] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 8  " asBareBinary " \
  35.   #( #[ 16r20 16r52 16r5C 16r5C 16rFA 16r04 16r1A 16rF3] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 9  " asBareHex " \
  39.   #( #[ 16r20 16r05 16r10 16r5C 16r5C 16rFA 16r04 16r1A 16rF3] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 10  " asSignedOctal " \
  43.   #( #[ 16r20 16r58 16r5B 16r5B 16rFA 16r04 16r1A 16rF3] \
  44.     #(  )) >
  45.  
  46. <primitive 112 pTempVar 11  " asSignedBinary " \
  47.   #( #[ 16r20 16r52 16r5B 16r5B 16rFA 16r04 16r1A 16rF3] \
  48.     #(  )) >
  49.  
  50. <primitive 112 pTempVar 12  " asSignedHex " \
  51.   #( #[ 16r20 16r05 16r10 16r5B 16r5B 16rFA 16r04 16r1A 16rF3] \
  52.     #(  )) >
  53.  
  54. <primitive 112 pTempVar 13  " asOctal " \
  55.   #( #[ 16r20 16r58 16r5C 16r5B 16rFA 16r04 16r1A 16rF3] \
  56.     #(  )) >
  57.  
  58. <primitive 112 pTempVar 14  " asBinary " \
  59.   #( #[ 16r20 16r52 16r5C 16r5B 16rFA 16r04 16r1A 16rF3] \
  60.     #(  )) >
  61.  
  62. <primitive 112 pTempVar 15  " asHex " \
  63.   #( #[ 16r20 16r05 16r10 16r5C 16r5B 16rFA 16r04 16r1A 16rF3] \
  64.     #(  )) >
  65.  
  66. <primitive 112 pTempVar 16  " print " \
  67.   #( #[ 16r20 16r05 16rFF 16rCC 16rF7 16r08 16r20 16r80 16r00 16rFA 16r01 \
  68.         16r79 16rF8 16r06 16rF2 16r20 16rA9 16rFA 16r01 16r79 16rF2 \
  69.         16rF5] \
  70.     #( #asHex  )) >
  71.  
  72. <primitive 112 pTempVar 17  " radix: " \
  73.   #( #[ 16r20 16r21 16r5B 16r5B 16rFA 16r04 16r1A 16rF3] \
  74.     #(  )) >
  75.  
  76. <primitive 112 pTempVar 18  " // " \
  77.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  78.         16r13 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3] \
  79.     #(  )) >
  80.  
  81. <primitive 112 pTempVar 19  " quo: " \
  82.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  83.         16r1C 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3] \
  84.     #(  )) >
  85.  
  86. <primitive 112 pTempVar 20  " odd " \
  87.   #( #[ 16r20 16r52 16rCD 16r50 16rCA 16rF3] \
  88.     #(  )) >
  89.  
  90. <primitive 112 pTempVar 21  " noMask: " \
  91.   #( #[ 16r50 16r20 16r21 16rC5 16rC9 16rF3] \
  92.     #(  )) >
  93.  
  94. <primitive 112 pTempVar 22  " lcm: " \
  95.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r0A 16r20 16r21 16rC2 16r20 \
  96.         16r21 16r0B 16r1C 16rCE 16rF8 16r04 16rF2 16r20 16r0A 16r23 \
  97.         16rF3] \
  98.     #(  )) >
  99.  
  100. <primitive 112 pTempVar 23  " highBit " \
  101.   #( #[ 16r20 16rFA 16r01 16r22 16rF3] \
  102.     #(  )) >
  103.  
  104. <primitive 112 pTempVar 24  " gcd: " \
  105.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  106.         16r14 16rF8 16r04 16rF2 16r20 16r0A 16r23 16rF3] \
  107.     #(  )) >
  108.  
  109. <primitive 112 pTempVar 25  " factorial " \
  110.   #( #[ 16r20 16rFA 16r01 16r26 16rF3] \
  111.     #(  )) >
  112.  
  113. <primitive 112 pTempVar 26  " even " \
  114.   #( #[ 16r20 16r52 16rCD 16r50 16rC9 16rF3] \
  115.     #(  )) >
  116.  
  117. <primitive 112 pTempVar 27  " bitXor: " \
  118.   #( #[ 16r20 16r21 16rFA 16r02 16r18 16rF3] \
  119.     #(  )) >
  120.  
  121. <primitive 112 pTempVar 28  " bitShift: " \
  122.   #( #[ 16r20 16r21 16rFA 16r02 16r19 16rF3] \
  123.     #(  )) >
  124.  
  125. <primitive 112 pTempVar 29  " bitOr: " \
  126.   #( #[ 16r20 16r21 16rFA 16r02 16r16 16rF3] \
  127.     #(  )) >
  128.  
  129. <primitive 112 pTempVar 30  " bitInvert " \
  130.   #( #[ 16r20 16rFA 16r01 16r21 16rF3] \
  131.     #(  )) >
  132.  
  133. <primitive 112 pTempVar 31  " bitAt: " \
  134.   #( #[ 16r20 16r21 16rFA 16r02 16r15 16rF3] \
  135.     #(  )) >
  136.  
  137. <primitive 112 pTempVar 32  " bitAnd: " \
  138.   #( #[ 16r20 16r21 16rFA 16r02 16r17 16rF3] \
  139.     #(  )) >
  140.  
  141. <primitive 112 pTempVar 33  " asString " \
  142.   #( #[ 16r20 16rFA 16r01 16r25 16rF3] \
  143.     #(  )) >
  144.  
  145. <primitive 112 pTempVar 34  " asFloat " \
  146.   #( #[ 16r20 16rFA 16r01 16r27 16rF3] \
  147.     #(  )) >
  148.  
  149. <primitive 112 pTempVar 35  " asCharacter " \
  150.   #( #[ 16r20 16rFA 16r01 16r24 16rF3] \
  151.     #(  )) >
  152.  
  153. <primitive 112 pTempVar 36  " anyMask: " \
  154.   #( #[ 16r50 16r20 16r21 16rFA 16r02 16r17 16rCA 16rF3] \
  155.     #(  )) >
  156.  
  157. <primitive 112 pTempVar 37  " allMask: " \
  158.   #( #[ 16r21 16r20 16r21 16rFA 16r02 16r17 16rC9 16rF3] \
  159.     #(  )) >
  160.  
  161. <primitive 112 pTempVar 38  " / " \
  162.   #( #[ 16r20 16r0A 16r10 16r21 16rBF 16rF3] \
  163.     #(  )) >
  164.  
  165. <primitive 112 pTempVar 39  " * " \
  166.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  167.         16r12 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3] \
  168.     #( #*  )) >
  169.  
  170. <primitive 112 pTempVar 40  " - " \
  171.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  172.         16r0B 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3] \
  173.     #( #-  )) >
  174.  
  175. <primitive 112 pTempVar 41  " + " \
  176.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  177.         16r0A 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3] \
  178.     #( #+  )) >
  179.  
  180. <primitive 112 pTempVar 42  " < " \
  181.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  182.         16r0C 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3] \
  183.     #( #<  )) >
  184.  
  185. <primitive 112 pTempVar 43  " > " \
  186.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  187.         16r0D 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3] \
  188.     #( #>  )) >
  189.  
  190. <primitive 112 pTempVar 44  " = " \
  191.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  192.         16r10 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3] \
  193.     #( #=  )) >
  194.  
  195. <primitive 98 #Integer \
  196.   <primitive 97 #Integer #Number #AmigaTalk:General/Integer.st \
  197.    #(  ) \
  198.    #( #timesRepeat: #intNegRem: #rem: #asBareSignedOctal #asBareSignedBinary  \
  199.        #asBareSignedHex #asBareOctal #asBareBinary #asBareHex #asSignedOctal #asSignedBinary  \
  200.        #asSignedHex #asOctal #asBinary #asHex #print #radix: #// #quo: #odd #noMask: #lcm:  \
  201.        #highBit #gcd: #factorial #even #bitXor: #bitShift: #bitOr: #bitInvert #bitAt:  \
  202.        #bitAnd: #asString #asFloat #asCharacter #anyMask: #allMask: #/ #* #- #+ #< #>  \
  203.        #=  ) \
  204.   pTempVar 3 5 > #ordinary >
  205.  
  206.